#!/usr/bin/perl

use GDBM_File;

tie(%LEX,GDBM_File,$ARGV[0],&GDBM_WRCREAT,0644);

while($line = <STDIN>)
{
	chomp($line);
	($key,$value) = split(/\t/,$line);
	$LEX{$key} = $value;
}

untie(%LEX);
